home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-297 qmodem pro 102 / 1.ima / SCRIPT.ZIP / WILDCAT.SCR < prev   
Encoding:
Text File  |  1993-03-03  |  4.0 KB  |  97 lines
  1. ; This is a simple QmodemPro script that will allow you to logon to any
  2. ; WILDCAT! BBS, download a mail packet from TomCat and then upload any
  3. ; .Rep packets you have waiting for that system. To use the script
  4. ; fill out the User Id, Password, Script, and Packet fields in the
  5. ; dialing entry for the BBS you want to call. Then simply call that
  6. ; system and the script will do the rest.
  7. ;
  8. ; Note that this script does not assume that you have access to the !
  9. ; fast login command.  If you do, you can make use of the MSIHQ.SCR script
  10. ; instead of this one.
  11. ;
  12. ; Some changes may be needed if the BBS you are calling has changed
  13. ; prompts, or if a version prior to v3.55 is being used.
  14. ;
  15. ; **********************************************************************
  16. ; To operate properly you must enter your name and password in the
  17. ; QmodemPro phonebook entry, must be in EXPERT mode in WILDCAT! and must
  18. ; have Hotkeys turned OFF.
  19. ; **********************************************************************
  20. ;
  21. ;
  22.  
  23. TurnON   8_BIT                       ; These Are Our Terminal Settings
  24. TurnOFF  LINEFEED                    ; For This Session
  25. TurnOFF  XON/XOFF
  26. TurnON   NOISE
  27. TurnOFF  MUSIC
  28. TurnON   SCROLL
  29. TurnOFF  PRINT
  30. TurnOFF  SPLIT
  31. TurnON   STATUSLN
  32. TurnOFF  DOORWAY
  33.  
  34. TimeOut  45                         ; Set Waitfor for 45 seconds
  35.  
  36. When     "-Pause-" "n^M"            ; In Case Of More? Prompts
  37. When     "bulletin menu?" "n^M"     ; In Case Of Bulletin menu prompt
  38. When     "new personal mail" "c^M"  ; In Case Of new mail prompt
  39. When     "Select a" "Z^M"           ; Default Select A Protocol prompt
  40.  
  41. Waitfor  "What is your first name" ; Wait for WC to prompt for your name
  42. Delay    100
  43. Send     "$USERID^M"                ; Send UserID from the Phone Book.
  44.  
  45. WaitFor  "Password?"                ; Wait For Password Prompt
  46. Delay    100
  47. Send     "$PASSWORD^M"              ; Send Password From Dialing Entry
  48.  
  49. Waitfor  "MAIN MENU"                ; WILDCAT! Main Menu
  50. Delay    100
  51. Send     "M^M"                      ; Send M for Message Menu
  52.  
  53. Waitfor  "MESSAGE MENU"             ; WILDCAT! Message Menu
  54. Delay    100
  55. Send     "T^M"                      ; Send T for Tomcat Menu
  56.  
  57. Waitfor  "TOMCAT MENU"               ; TomCat!'s Main Menu
  58.  
  59. DOWNLOADAGAIN:
  60. IF $GETMAIL DOWNLOADMAIL             ; If Downloading Qwk packet
  61. DOWNFINISHED:                        ; Label For DownFinished
  62.  
  63. UPLOADAGAIN:
  64. IF $SENDMAIL UPLOADMAIL              ; If Send Rep Packet
  65. UPSUCCESS:                           ; Label For Upload Success
  66. TimeOut 30 EXITSYSTEM                ; Goto EXITSYSTEM Upon Timeout
  67. DELETEF $REPPATH$PACKET.REP          ; Delete .REP Packet
  68. When     "Auto Logoff" "H^M"
  69. Waitfor  "TOMCAT"                    ; Wait For TomCat Menu
  70. Delay    100
  71. Send     "G^M"                       ; Send Hangup Command
  72. EXITSYSTEM:
  73. Exit                                 ; Script Is Done.
  74.  
  75. UPLOADMAIL:                          ; Label For Upload Routine
  76. TimeOut  30                          ; Reset Timeout Value
  77. Delay    100
  78. Send     "U^M"                       ; Tell It To [D]ownload Mail
  79. Delay 500                            ; Pause For 1/2 Second
  80. UPLOAD Z $REPPATH$PACKET.REP         ; Upload .REP Packet
  81. IF $SUCCESS UPSUCCESS                ; If Success Then Goto UPSUCCESS
  82. GOTO UPLOADAGAIN                     ; If Not Loop Back Around
  83.  
  84. DOWNLOADMAIL:                        ; Download QWK Routine
  85. TimeOut  500                         ; Set Timeout For Message Packing
  86. When     "Nothing" DOWNFINISHED
  87. Delay    100
  88. Send     "D^M"                       ; Tell It To [D]ownload Mail
  89. Waitfor  "this packet"               ; String To Start Download
  90. Delay    100
  91. Send     "Y^M"                       ; Send Yes To Download Packet
  92. Waitfor  "Start Your"                ; Start Download Prompt
  93. Delay    200
  94. DOWNLOAD Z $QWKPATH                  ; Download The .QWK Packet using Zmodem
  95. IF $SUCCESS DOWNFINISHED             ; If Successful Goto DOWNFINISHED
  96. GOTO DOWNLOADAGAIN                   ; If Not Try Again
  97.